home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr1.arc / DBOX.SPM < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.8 KB  |  84 lines
  1. * DATE 07/15/84  12:41
  2. * dBOX is a program to switch between data bases in dBASE 2.4
  3. * set up forever loop for program
  4. STOR t TO keepitup
  5. DO WHIL keepitup
  6. * set up alternateive routes
  7.  DO CASE
  8.  CASE box = 0
  9.   STOR f TO moveit
  10.   STOR t TO first
  11.   STOR chr(peek (063)) TO dr
  12.   DO menu.spm
  13.  CASE box = 1
  14.   RELE ALL
  15.   STOR t TO keepitup
  16.   STOR chr(peek (063)) TO dr
  17.   SELE PRIMARY
  18.   USE &dr.:build INDEX &dr.:code
  19.   STOR f TO moveit
  20.   STOR t TO first
  21.   DO main.bld
  22.  CASE box = 2
  23.   RELE ALL
  24.   STOR t TO keepitup
  25.   STOR chr(peek (063)) TO dr
  26.   SELE SECONDARY
  27.   USE &dr.:tenant INDEX &dr.:codea
  28.   STOR f TO moveit
  29.   STOR t TO first
  30.   DO main.tnt
  31.  CASE box = 3
  32.   RELE ALL
  33.   STOR t TO keepitup
  34.   STOR chr(peek (063)) TO dr
  35.   SELE PRIMARY
  36.   USE &dr.:build INDEX &dr.:code
  37.   STOR t TO moveit
  38.   STOR t TO first
  39.   DO main.bld
  40.  CASE box = 4
  41.   RELE ALL
  42.   STOR t TO keepitup
  43.   STOR chr(peek (063)) TO dr
  44.   SELE SECONDARY
  45.   USE &dr.:tenant INDEX &dr.:codea
  46.   STOR t TO moveit
  47.   STOR t TO first
  48.   DO main.tnt
  49.  CASE box = 5
  50.   RELE ALL
  51.   STOR t TO keepitup
  52.   STOR chr(peek (063)) TO dr
  53.   SELE PRIMARY
  54.   USE &dr.:build INDEX &dr.:code
  55.   STOR t TO moveit
  56.   STOR t TO first
  57.   DO search.bld
  58.  CASE box = 6
  59.   RELE ALL
  60.   STOR t TO keepitup
  61.   STOR chr(peek (063)) TO dr
  62.   SELE SECONDARY
  63.   USE &dr.:tenant INDEX &dr.:codea
  64.   STOR t TO moveit
  65.   STOR t TO first
  66.   DO search.tnt
  67.  CASE box = 7
  68.   RELE ALL
  69.   DO maintain.bld
  70.  CASE box = 8
  71.   RELE ALL
  72.   DO report.bld
  73.  CASE box = 9
  74.   RELE ALL
  75.   STOR CHR(PEEK(063)) TO dr
  76.   SELE PRIMARY
  77.   USE &dr.:account
  78.   DO main.acc
  79.  ENDC
  80. ENDD
  81. ERAS
  82. SET CONSOLE OFF
  83. QUIT
  84.